home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 May / Software of the Month Club 1996 May.iso / mac / ISO9660 / DOS / BIZ / INVENT / FORMS.DBT < prev    next >
Encoding:
Text File  |  1995-10-19  |  60.0 KB  |  759 lines  |  [TEXT/hscd]

  1. x~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
  2.                     ╒═══════════════════════════════════╕
  3.                     │          PURCHASE ORDER           │▒
  4.                     ╘═══════════════════════════════════╛▒
  5.                      ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  6.  
  7. ┌────────────[issued by]─────────────┐  ┌────────────[important]─────────────┐
  8. │~PAD(M_name,35)~ │  │Our purchase order number must      │
  9. │~PAD(M_adr1,35)~ │  │appear on all invoices, cases,      │
  10. │~PAD(M_adr2,35)~ │  │packing lists and correspondence.   │
  11. │~PAD(M_adr3,35)~ │  │                                    │
  12. ├────[contact]──────┬──[telephone]───┤  ├──[order no.]────┬──[issue date]────┤
  13. │~po->contact~ │ ~PAD(M_phone,14)~ │  │ ~padl(ltrim(str(po->(RECNO()))),7,"0")~         │  ~pad(dtoc(po->issued),10)~      │
  14. └───────────────────┴────────────────┘  ├[customer no.]───┼[cust. acct. no.]─┤
  15. ┌─           [issued to]            ─┐    │~supplier->cust_no~│~supplier->acct_no~│
  16. │~pad(aSup1,35)~ │  └─────────────────┴──────────────────┘
  17.  ~pad(aSup2,35)~
  18.  ~aSup3~
  19. │~pad(aSup4,35)~ │
  20. └─                                  ─┘
  21. ┌[weight]─────┬[required]─┬[f.o.b.   ]───────────────────────────────────────┐
  22. │~po->weight~│~pad(dtoc(po->required),10)~ │~fob->fob_terms~  │
  23. ├[TERMS  ]────┼[         ]┼[supply cd]┼[ship via]────────────────────────────┤
  24. │~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~  │           │~po->supply_cd~    │~po->ship_via~                      │
  25. └─────────────┴───────────┴───────────┴──────────────────────────────────────┘
  26. Please supply the articles and/or services listed below.
  27. comments-> ~po->comments~
  28. ┌────┬────────────────────┬─────────────┬────┬───────────────┬───────────────┐
  29. │item│item no./description│ qty         │unit│ price         │ extended      │
  30. └────┴────────────────────┴─────────────┴────┴───────────────┴───────────────┘
  31.  ~po2->item~  ~inv->part_no~~po2->qty~ ~inv->unit~  ~po2->cost~ ~str(po2->cost*po2->qty,15,2)~
  32. ~-~       ~trim(inv->manufact)~
  33.        ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  34.                                                            ì
  35. ┌───[sub-total]───┐
  36.                                                            │  ì
  37. ~str(subtotal,15,2)~│
  38.                                                            ì
  39. └─────────────────┘
  40. ~padc(upper(trim(M_NAME)),80)~
  41. page ~ltrim(str(page,4))~                                                  [order no.-> ~po-> (recno())~]
  42.                                (continuation)
  43. ┌────┬────────────────────┬─────────────┬────┬───────────────┬───────────────┐
  44. │item│item no./description│ qty         │unit│ price         │ extended      │
  45. └────┴────────────────────┴─────────────┴────┴───────────────┴───────────────┘
  46.                                                       taxable   ~po->taxable~
  47.                                                   non-taxable   ~po->non_taxabl~
  48.                                                  ~if(empty(po->tax1_rate),"","("+str(po->tax1_rate)+"%) tax   "+str(po->tax1,13,2))~
  49.                                                  ~if(empty(po->tax2_rate),"","("+str(po->tax2_rate)+"%) tax   "+str(po->tax2,13,2))~
  50.                                                      shipping   ~po->freight~
  51. ┌───────[signature]──────────┬───[date]────┬───────────────┬[total est. cost]┐
  52. │                            │             │               │    ~po->total~│
  53. └────────────────────────────┴─────────────┴───────────────┴─────────────────┘ 
  54. ~Printcode("COMP")~Certified that an unencumbered balance is available to meet this commitment.~Printcode("pitch10")~
  55. ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
  56.                     +===================================+
  57.                     |          PURCHASE ORDER           |
  58.                     +===================================+
  59.  
  60. +------------[issued by]-------------+  +------------[important]-------------+
  61. |~PAD(M_name,35)~ |  |Our purchase order number must      |
  62. |~PAD(M_adr1,35)~ |  |appear on all invoices, cases,      |
  63. |~PAD(M_adr2,35)~ |  |packing lists and correspondence.   |
  64. |~PAD(M_adr3,35)~ |  |                                    |
  65. +----[contact]------+--[telephone]---+  +--[order no.]----+--[issue date]----+
  66. |~po->contact~ | ~PAD(M_phone,14)~ |  | ~padl(ltrim(str(po->(RECNO()))),7,"0")~         |  ~pad(dtoc(po->issued),10)~      |
  67. +-------------------+----------------+  +[customer no.]---+[cust. acct. no.]-+
  68. +-           [issued to]            -+    |~supplier->cust_no~|~supplier->acct_no~|
  69. |~pad(aSup1,35)~ |  +-----------------+------------------+
  70.  ~pad(aSup2,35)~
  71.  ~aSup3~
  72. |~pad(aSup4,35)~ |
  73. +-                                  -+
  74. +[weight]-----+[required]-+[f.o.b.   ]---------------------------------------+
  75. |~po->weight~|~pad(dtoc(po->required),10)~ |~fob->fob_terms~  |
  76. +[TERMS  ]----+[         ]+[supply cd]+[ship via]----------------------------+
  77. |~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~  |           |~po->supply_cd~    |~po->ship_via~                      |
  78. +-------------+-----------+-----------+--------------------------------------+
  79. Please supply the articles and/or services listed below.
  80. comments-> ~po->comments~
  81. +----+--------------------+-------------+----+---------------+---------------+
  82. |item|item no./description| qty         |unit| price         | extended      |
  83. +----+--------------------+-------------+----+---------------+---------------+
  84.  ~po2->item~  ~inv->part_no~~po2->qty~ ~inv->unit~  ~po2->cost~ ~str(po2->cost*po2->qty,15,2)~
  85. ~-~       ~trim(inv->manufact)~
  86.        ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  87.  
  88.                                                            ì
  89. +---[sub-total]---+
  90.                                                            |  ì
  91. ~str(subtotal,15,2)~|
  92.                                                            ì
  93. +-----------------+
  94. ~padc(upper(trim(M_NAME)),80)~
  95. page ~ltrim(str(page,4))~                                                  [order no.-> ~po-> (recno())~]
  96.                                (continuation)
  97. +----+--------------------+-------------+----+---------------+---------------+
  98. |item|item no./description| qty         |unit| price         | extended      |
  99. +----+--------------------+-------------+----+---------------+---------------+
  100.  
  101.                                                       taxable   ~po->taxable~
  102.                                                   non-taxable   ~po->non_taxabl~
  103.                                                  ~if(empty(po->tax1_rate),"","("+str(po->tax1_rate)+"%) tax   "+str(po->tax1,13,2))~
  104.                                                  ~if(empty(po->tax2_rate),"","("+str(po->tax2_rate)+"%) tax   "+str(po->tax2,13,2))~
  105.                                                      shipping   ~po->freight~
  106. +-------[signature]----------+---[date]----+---------------+[total est. cost]+
  107. |                            |             |               |    ~po->total~|
  108. +----------------------------+-------------+---------------+-----------------+ 
  109. ~Printcode("COMP")~Certified that an unencumbered balance is available to meet this commitment.~Printcode("pitch10")~~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~                                I N V O I C E
  110.              ╒═════════════════════════════════════════════════╕
  111.              │~padc(upper(m_name),48)~ │
  112.              ╘═════════════════════════════════════════════════╛
  113.  ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
  114.               ~padc(M_phone,48)~
  115. ┌────────────[sold to]───────────────┐  ┌────────────[ship to]───────────────┐
  116. │~PAD(customer->name,35)~ │  │~PAD(aShip2[1],35)~ │
  117. │~PAD(customer->company,35)~ │  │~PAD(aShip2[2],35)~ │
  118. │~PAD(customer->address,35)~ │  │~PAD(aShip2[3],35)~ │
  119. │~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ │  │~PAD(aShip2[4],35)~ │
  120. ├──[customer id]────┬──[telephone]───┤  ├──[         ]────┬──[          ]────┤
  121. │    ~padl(pos->cust_id,9,"0")~      │~customer->home_phone~    │  │                 │                  │
  122. └───────────────────┴────────────────┘  └─────────────────┴──────────────────┘
  123. ┌[INVOICE]──┬[date]─────┬[trx type]┬[sales rep]──────────────────────────────┐
  124. │ ~pos->(recno())~   │~pad(dtoc(pos->date),10)~ │~pos->trx_type~      │~pos->sales_rep~ ~sale_rep->name~ │
  125. ├[ship date]┼[weight]───┼[ship via]┴─────┬─────[terms]───────────────────────┤
  126. │~pad(dtoc(pos->ship_date),10)~ │~pos->weight~ │~pos->ship_via~│~Pad(posterms(),35)~│
  127. ├[cust PO]──┴───────────┼[f.o.b.]────────┴───────────────────────────────────┤
  128. │~pos->cust_po_no~   │~fob->fob_terms~    │
  129. └───────────────────────┴────────────────────────────────────────────────────┘
  130. ┌────┬─────────────────────┬──────────────┬────┬─────────────┬───────────────┐
  131. │item│item no./description │quantity      │unit│unit cost    │extended       │
  132. └────┴─────────────────────┴──────────────┴────┴─────────────┴───────────────┘
  133. ~pos_item->item~   ~inv->part_no~ ~pos_item->order_qty~ ~inv->unit~ ~pos_item->price~ ~str(pos_item->order_qty*pos_item->price,15,2)~
  134. ~-~      ~trim(inv->manufact)~
  135.       ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  136.                   * * * continued on page ~str(page+1,4)~ * * *
  137.  
  138. ~padc(upper(trim(M_NAME)),80)~
  139. page ~ltrim(str(page,4))~                                                [invoice no.-> ~pos-> (recno())~]
  140.                                (continuation)
  141. ┌────┬─────────────────────┬──────────────┬────┬─────────────┬───────────────┐
  142. │item│item no./description │quantity      │unit│unit cost    │extended       │
  143. └────┴─────────────────────┴──────────────┴────┴─────────────┴───────────────┘
  144. ┌[payment]─────────────────────────────────┬[charges]──────┬──────ì
  145. ───────────┐
  146. │~pad(aPaid[1],42)~│        taxable│      ~pos->taxable~│
  147. │~pad(aPaid[2],42)~│    non-taxable│      ~pos->non_taxabl~│ 
  148. │~pad(aPaid[3],42)~│   ì
  149. ~if(empty(pos->tax1_rate),space(12)+"│"+space(17),"("+str(pos->taxì
  150. 1_rate,5,2)+"%) tax│   "+str(tax1(),14,2))~│
  151. │~pad(aPaid[4],42)~│   ì
  152. ~if(empty(pos->tax2_rate),space(12)+"│"+space(17),"("+str(pos->taxì
  153. 2_rate,5,2)+"%) tax│   "+str(tax2(),14,2))~│
  154. │~pad(aPaid[5],42)~│       shipping│      ~pos->freight~│
  155. │~pad(aPaid[6],42)~│      T O T A L│  ~str(postotal(),15,2)~│
  156. ├[amount tendered]─┬[change due]───────────┼[PAYMENT DUE]──┼[B A ì
  157. L A N C E]──┤
  158. │~str(amt_tender(),15,2)~   │~str(change(),11,2)~            ì
  159. │~pad(if(empty(balance()),"N/A",pos->net_due),10)~     │  ì
  160. ~str(balance(),15,2)~│
  161. └──────────────────┴───────────────────────┴───────────────┴──────ì
  162. ───────────┘ 
  163. ~if(empty(balance()),"","Please pay from this Invoice:  No ì
  164. statement will be issued.")~
  165. ~if(!empty(pos->savings)," Y O U R  S A V I N G S -> ì
  166. $"+STR(POS->SAVINGS)+IF(!EMPTY(posTOTAL()),str((1-(postotal()-tax1ì
  167. ()-tax2())/(pos->savings+postotal()-tax1()-tax2()))*100,6,2)+"%","ì
  168. ")," T H A N K  Y O U  F O R  Y O U R  O R D E R !")~
  169. ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~                                I N V O I C E
  170.              +=================================================+
  171.              |~padc(upper(m_name),48)~ |
  172.              +=================================================+
  173.  ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
  174.               ~padc(M_phone,48)~
  175. +------------[sold to]---------------+  +------------[ship to]---------------+
  176. |~PAD(customer->name,35)~ |  |~PAD(aShip2[1],35)~ |
  177. |~PAD(customer->company,35)~ |  |~PAD(aShip2[2],35)~ |
  178. |~PAD(customer->address,35)~ |  |~PAD(aShip2[3],35)~ |
  179. |~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ |  |~PAD(aShip2[4],35)~ |
  180. +--[customer id]----+--[telephone]---+  +--[         ]----+--[          ]----+
  181. |    ~padl(pos->cust_id,9,"0")~      |~customer->home_phone~    |  |                 |                  |
  182. +-------------------+----------------+  +-----------------+------------------+
  183. +[INVOICE]--+[date]-----+[trx type]+[sales rep]------------------------------+
  184. | ~pos->(recno())~   |~pad(dtoc(pos->date),10)~ |~pos->trx_type~      |~pos->sales_rep~ ~sale_rep->name~ |
  185. +[ship date]+[weight]---+[ship via]+-----+-----[terms]-----------------------+
  186. |~pad(dtoc(pos->ship_date),10)~ |~pos->weight~ |~pos->ship_via~|~Pad(posterms(),35)~|
  187. +[cust PO]--+-----------+[f.o.b.]--------+-----------------------------------+
  188. |~pos->cust_po_no~   |~fob->fob_terms~    |
  189. +-----------------------+----------------------------------------------------+
  190. +----+---------------------+--------------+----+-------------+---------------+
  191. |item|item no./description |quantity      |unit|unit cost    |extended       |
  192. +----+---------------------+--------------+----+-------------+---------------+
  193. ~pos_item->item~   ~inv->part_no~ ~pos_item->order_qty~ ~inv->unit~ ~pos_item->price~ ~str(pos_item->order_qty*pos_item->price,15,2)~
  194. ~-~      ~trim(inv->manufact)~
  195.       ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  196.  
  197.                   * * * continued on page ~str(page+1,4)~ * * *
  198.  
  199. ~padc(upper(trim(M_NAME)),80)~
  200. page ~ltrim(str(page,4))~                                                [invoice no.-> ~pos-> (recno())~]
  201.                                (continuation)
  202. +----+---------------------+--------------+----+-------------+---------------+
  203. |item|item no./description |quantity      |unit|unit cost    |extended       |
  204. +----+---------------------+--------------+----+-------------+---------------+
  205.  
  206. +[payment]---------------------------------+[charges]------+------ì
  207. -----------+
  208. |~pad(aPaid[1],42)~|        taxable|      ~pos->taxable~|
  209. |~pad(aPaid[2],42)~|    non-taxable|      ~pos->non_taxabl~| 
  210. |~pad(aPaid[3],42)~|   ì
  211. ~if(empty(pos->tax1_rate),space(12)+"|"+space(17),"("+str(pos->taxì
  212. 1_rate,5,2)+"%) tax|   "+str(tax1(),14,2))~|
  213. |~pad(aPaid[4],42)~|   ì
  214. ~if(empty(pos->tax2_rate),space(12)+"|"+space(17),"("+str(pos->taxì
  215. 2_rate,5,2)+"%) tax|   "+str(tax2(),14,2))~|
  216. |~pad(aPaid[5],42)~|       shipping|      ~pos->freight~|
  217. |~pad(aPaid[6],42)~|      T O T A L|  ~str(postotal(),15,2)~|
  218. +[amount tendered]-+[change due]-----------+[PAYMENT DUE]--+[B A ì
  219. L A N C E]--+
  220. |~str(amt_tender(),15,2)~   |~str(change(),11,2)~            ì
  221. |~pad(if(empty(balance()),"N/A",pos->net_due),10)~     |  ì
  222. ~str(balance(),15,2)~|
  223. +------------------+-----------------------+---------------+------ì
  224. -----------+ 
  225. ~if(empty(balance()),"","Please pay from this Invoice:  No ì
  226. statement will be issued.")~
  227. ~if(!empty(pos->savings)," Y O U R  S A V I N G S -> ì
  228. $"+STR(POS->SAVINGS)+IF(!EMPTY(posTOTAL()),str((1-(postotal()-tax1ì
  229. ()-tax2())/(pos->savings+postotal()-tax1()-tax2()))*100,6,2)+"%","ì
  230. ")," T H A N K  Y O U  F O R  Y O U R  O R D E R !")~~printcode("INIT")~~printcode("landscape")~~PRINTCODE("LINES6")~~PRINTCODE("PITCH10")~
  231.  
  232.  
  233.  
  234.  
  235.  
  236.  
  237.  
  238.  
  239.  
  240.  
  241.  
  242.  
  243.  
  244.  
  245.  
  246.  
  247.  
  248.  
  249.  
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257. ~aShip2[1]~
  258. ~aship2[2]~
  259. ~aship2[3]~
  260. ~aship2[4]~
  261.  
  262.  
  263.  
  264. ~printcode("init")~~printcode("landscape")~~printcode("lines6")~~printcode("pitch10")~
  265.  
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273.  
  274.  
  275.  
  276.  
  277.  
  278.  
  279.  
  280.  
  281.  
  282.  
  283.  
  284.  
  285.  
  286.  
  287.  
  288. ~-~~customer->name~
  289. ~-~~customer->company~
  290. ~-~~customer->address~
  291. ~-~~trim(customer->city)+", "+customer->state+"  "+customer->zip~
  292. ~-~~upper(customer->country)~
  293. ~printcode("portrait")~
  294. ~Printcode("INIT")~~printcode("pitch10")~~printcode("lines6")~                                  Q U O T E
  295.              ╒═════════════════════════════════════════════════╕
  296.              │~padc(upper(m_name),48)~ │
  297.              ╘═════════════════════════════════════════════════╛
  298.  ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
  299.               ~padc(M_phone,48)~
  300. ┌────────────[sold to]───────────────┐  ┌────────────[ship to]───────────────┐
  301. │~PAD(customer->name,35)~ │  │~PAD(aShip2[1],35)~ │
  302. │~PAD(customer->company,35)~ │  │~PAD(aShip2[2],35)~ │
  303. │~PAD(customer->address,35)~ │  │~PAD(aShip2[3],35)~ │
  304. │~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ │  │~PAD(aShip2[4],35)~ │
  305. ├──[customer id]────┬──[telephone]───┤  ├──[         ]────┬──[          ]────┤
  306. │    ~padl(quote->cust_id,9,"0")~      │~customer->home_phone~    │  │                 │                  │
  307. └───────────────────┴────────────────┘  └─────────────────┴──────────────────┘
  308. ┌[QUOTE #]──┬[date]─────┬[        ]┬[sales rep]──────────────────────────────┐
  309. │ ~Quote->(recno())~   │~pad(dtoc(Quote->date),10)~ │          │~quote->sales_rep~ ~sale_rep->name~ │
  310. ├[         ]┼[weight]───┼[ship via]┴─────┬─────[terms]───────────────────────┤
  311. │           │~quote->weight~ │~quote->ship_via~│~Pad(qterms(),35)~│
  312. ├[cust PO]──┴───────────┼[f.o.b.]────────┴───────────────────────────────────┤
  313. │~quote->cust_po_no~   │~fob->fob_terms~    │
  314. └───────────────────────┴────────────────────────────────────────────────────┘
  315. ┌─────────────────────┬────────────────┬────┬───────────────┬────────────────┐
  316. │item no./description │quantity        │unit│price          │extended        │
  317. └─────────────────────┴────────────────┴────┴───────────────┴────────────────┘
  318.   ~inv->part_no~  ~quote2->order_qty~ ~inv->unit~   ~quote2->price~ ~str(quote2->order_qty*quote2->price,16,2)~
  319. ~-~      ~trim(inv->manufact)~
  320.       ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  321.                   * * * continued on page ~str(page+1,4)~ * * *
  322.  
  323. ~padc(upper(trim(M_NAME)),80)~
  324. page ~ltrim(str(page,4))~                                                [QUOTE no.-> ~quote-> (recno())~]
  325.                                (continuation)
  326. ┌─────────────────────┬────────────────┬────┬───────────────┬────────────────┐
  327. │item no./description │quantity        │unit│price          │extended        │
  328. └─────────────────────┴────────────────┴────┴───────────────┴────────────────┘
  329. ┌[       ì
  330. ]─────────────────────────────────┬[charges]──────┬───────────────ì
  331. ──┐
  332. │                                          │        taxable│      ì
  333. ~quote->taxable~│
  334. │                                          │    non-taxable│      ì
  335. ~quote->non_taxabl~│ 
  336. │                                          │   ì
  337. ~if(empty(quote->tax1_rate),space(12)+"│"+space(17),"("+str(quote-ì
  338. >tax1_rate,5,2)+"%) tax│   "+str(qtax1(),14,2))~│
  339. │                                          │   ì
  340. ~if(empty(quote->tax2_rate),space(12)+"│"+space(17),"("+str(quote-ì
  341. >tax2_rate,5,2)+"%) tax│   "+str(qtax2(),14,2))~│
  342. │                                          │       shipping│      ì
  343. ~quote->freight~│
  344. │                                          │      T O T A L│  ì
  345. ~str(qtotal(),15,2)~│
  346. └──────────────────────────────────────────┴───────────────┴──────ì
  347. ───────────┘ 
  348. ~if(!empty(quote->savings)," Y O U R  S A V I N G S -> ì
  349. $"+STR(quote->SAVINGS)+IF(!EMPTY(qtotal()),str((1-(qtotal()-qtax1(ì
  350. )-qtax2())/(quote->savings+qtotal()-qtax1()-qtax2()))*100,6,2)+"%"ì
  351. ,"")," T H A N K  Y O U  F O R  Y O U R  B U S I N E S S !")~
  352. ~Printcode("INIT")~~printcode("pitch10")~~printcode("lines6")~                                  Q U O T E
  353.              +=================================================+
  354.              |~padc(upper(m_name),48)~ |
  355.              +=================================================+
  356.  ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
  357.               ~padc(M_phone,48)~
  358. +------------[sold to]---------------+  +------------[ship to]---------------+
  359. |~PAD(customer->name,35)~ |  |~PAD(aShip2[1],35)~ |
  360. |~PAD(customer->company,35)~ |  |~PAD(aShip2[2],35)~ |
  361. |~PAD(customer->address,35)~ |  |~PAD(aShip2[3],35)~ |
  362. |~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ |  |~PAD(aShip2[4],35)~ |
  363. +--[customer id]----+--[telephone]---+  +--[         ]----+--[          ]----+
  364. |    ~padl(quote->cust_id,9,"0")~      |~customer->home_phone~    |  |                 |                  |
  365. +-------------------+----------------+  +-----------------+------------------+
  366. +[QUOTE #]--+[date]-----+[        ]+[sales rep]------------------------------+
  367. | ~Quote->(recno())~   |~pad(dtoc(Quote->date),10)~ |          |~quote->sales_rep~ ~sale_rep->name~ |
  368. +[         ]+[weight]---+[ship via]+-----+-----[terms]-----------------------+
  369. |           |~quote->weight~ |~quote->ship_via~|~Pad(qterms(),35)~|
  370. +[cust PO]--+-----------+[f.o.b.]--------+-----------------------------------+
  371. |~quote->cust_po_no~   |~fob->fob_terms~    |
  372. +-----------------------+----------------------------------------------------+
  373. +---------------------+----------------+----+---------------+----------------+
  374. |item no./description |quantity        |unit|price          |extended        |
  375. +---------------------+----------------+----+---------------+----------------+
  376.   ~inv->part_no~  ~quote2->order_qty~ ~inv->unit~   ~quote2->price~ ~str(quote2->order_qty*quote2->price,16,2)~
  377. ~-~      ~trim(inv->manufact)~
  378.       ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  379.                   * * * continued on page ~str(page+1,4)~ * * *
  380.  
  381. ~padc(upper(trim(M_NAME)),80)~
  382. page ~ltrim(str(page,4))~                                                [QUOTE no.-> ~quote-> (recno())~]
  383.                                (continuation)
  384. +---------------------+----------------+----+---------------+----------------+
  385. |item no./description |quantity        |unit|price          |extended        |
  386. +---------------------+----------------+----+---------------+----------------+
  387.  
  388. +[       ì
  389. ]---------------------------------+[charges]------+---------------ì
  390. --+
  391. |                                          |        taxable|      ì
  392. ~quote->taxable~|
  393. |                                          |    non-taxable|      ì
  394. ~quote->non_taxabl~| 
  395. |                                          |   ì
  396. ~if(empty(quote->tax1_rate),space(12)+"|"+space(17),"("+str(quote-ì
  397. >tax1_rate,5,2)+"%) tax|   "+str(qtax1(),14,2))~|
  398. |                                          |   ì
  399. ~if(empty(quote->tax2_rate),space(12)+"|"+space(17),"("+str(quote-ì
  400. >tax2_rate,5,2)+"%) tax|   "+str(qtax2(),14,2))~|
  401. |                                          |       shipping|      ì
  402. ~quote->freight~|
  403. |                                          |      T O T A L|  ì
  404. ~str(qtotal(),15,2)~|
  405. +------------------------------------------+---------------+------ì
  406. -----------+ 
  407. ~if(!empty(quote->savings)," Y O U R  S A V I N G S -> ì
  408. $"+STR(quote->SAVINGS)+IF(!EMPTY(qtotal()),str((1-(qtotal()-qtax1(ì
  409. )-qtax2())/(quote->savings+qtotal()-qtax1()-qtax2()))*100,6,2)+"%"ì
  410. ,"")," T H A N K  Y O U  F O R  Y O U R  B U S I N E S S !")~~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
  411.                     ╒═══════════════════════════════════╕
  412.                     │        REQUEST FOR QUOTE          │▒
  413.                     ╘═══════════════════════════════════╛▒
  414.                      ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  415.  
  416. ┌────────────[issued by]─────────────┐  ┌────────────[important]─────────────┐
  417. │~PAD(M_name,35)~ │  │Our Quote number must               │
  418. │~PAD(M_adr1,35)~ │  │appear on all correspondence.       │
  419. │~PAD(M_adr2,35)~ │  │                                    │
  420. │~PAD(M_adr3,35)~ │  │                                    │
  421. ├────[contact]──────┬──[telephone]───┤  ├──[quote no.]────┬──[issue date]────┤
  422. │~po->contact~ │ ~PAD(M_phone,14)~ │  │    ~padl(ltrim(str(po->(RECNO()))),7,"0")~      │  ~pad(date(),10)~      │
  423. └───────────────────┴────────────────┘  └─────────────────┴──────────────────┘
  424. ┌─           [issued to]            ─┐
  425. │~pad(aSup1,35)~ │
  426.  ~aSup2~
  427.  ~aSup3~
  428. │~pad(aSup4,35)~ │
  429. └─                                  ─┘
  430. ┌[weight]─────┬[required]─┬[f.o.b.   ]───────────────────────────────────────┐
  431. │~po->weight~│~pad(po->required,10)~ │~fob->fob_terms~  │
  432. ├[TERMS  ]────┼[EXP DATE ]┼[supply cd]┼[ship via]────────────────────────────┤
  433. │             │           │~rfq->supply_cd~    │~po->ship_via~                      │
  434. └─────────────┴───────────┴───────────┴──────────────────────────────────────┘
  435. ~Printcode("COMP")~Please quote the articles and/or services listed below.  Include freight, taxes and other charges.~Printcode("NOCOMP")~
  436. comments-> ~po->comments~
  437. ┌────┬────────────────────┬─────────────┬────┬───────────────┬───────────────┐
  438. │item│item no./description│ qty         │unit│ price         │ extended      │
  439. └────┴────────────────────┴─────────────┴────┴───────────────┴───────────────┘
  440.  ~po2->item~  ~if(empty(supply2->part_no),inv->part_no,supply2->part_no)~~po2->qty~ ~inv->unit~
  441. ~-~       ~trim(inv->manufact)~
  442.        ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  443. ~padc(upper(trim(M_NAME)),80)~
  444. page ~ltrim(str(page,4))~                                         ì
  445.          [quote no.-> ~po-> (recno())~]
  446.                                (continuation)
  447. ┌────┬────────────────────┬─────────────┬────┬───────────────┬────ì
  448. ───────────┐
  449. │item│item no./description│ qty         │unit│ price         │ ì
  450. extended      │
  451. └────┴────────────────────┴─────────────┴────┴───────────────┴────ì
  452. ───────────┘
  453.                                                     taxable
  454.                                                 non-taxable
  455.                                               (      %) tax
  456.                                               (      %) tax   
  457.                                                    shipping   
  458. ┌───────[signature]──────────┬───[date]────┬[est. ì
  459. delivery]┬[total est. cost]┐
  460. │                            │             │               │      ì
  461.            │
  462. └────────────────────────────┴─────────────┴───────────────┴──────ì
  463. ───────────┘ 
  464. ~Printcode("INIT")~
  465.                     +===================================+
  466.                     |        REQUEST FOR QUOTE          |
  467.                     +===================================+
  468.  
  469. +------------[issued by]-------------+  +------------[important]-------------+
  470. |~PAD(M_name,35)~ |  |Our Quote number must               |
  471. |~PAD(M_adr1,35)~ |  |appear on all correspondence.       |
  472. |~PAD(M_adr2,35)~ |  |                                    |
  473. |~PAD(M_adr3,35)~ |  |                                    |
  474. +----[contact]------+--[telephone]---+  +--[quote no.]----+--[issue date]----+
  475. |~po->contact~ | ~PAD(M_phone,14)~ |  |    ~padl(ltrim(str(po->(RECNO()))),7,"0")~      |  ~pad(date(),10)~      |
  476. +-------------------+----------------+  +-----------------+------------------+
  477. +-           [issued to]            -+
  478. |~pad(aSup1,35)~ |
  479.  ~aSup2~
  480.  ~aSup3~
  481. |~pad(aSup4,35)~ |
  482. +-                                  -+
  483. +[weight]-----+[required]-+[f.o.b.   ]---------------------------------------+
  484. |~po->weight~|~pad(po->required,10)~ |~fob->fob_terms~  |
  485. +[TERMS  ]----+[EXP DATE ]+[supply cd]+[ship via]----------------------------+
  486. |             |           |~rfq->supply_cd~    |~po->ship_via~                      |
  487. +-------------+-----------+-----------+--------------------------------------+
  488. ~Printcode("COMP")~Please quote the articles and/or services listed below.  Include freight, taxes and other charges.~Printcode("NOCOMP")~
  489. comments-> ~po->comments~
  490. +----+--------------------+-------------+----+---------------+---------------+
  491. |item|item no./description| qty         |unit| price         | extended      |
  492. +----+--------------------+-------------+----+---------------+---------------+
  493.  ~po2->item~  ~if(empty(supply2->part_no),inv->Part_no,supply2->part_no)~~po2->qty~ ~inv->unit~
  494. ~-~       ~trim(inv->manufact)~
  495.        ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  496. ~padc(upper(trim(M_NAME)),80)~
  497. page ~ltrim(str(page,4))~                                                  [quote no.-> ~po-> (recno())~]
  498.                                (continuation)
  499. +----+--------------------+-------------+----+---------------+---------------+
  500. |item|item no./description| qty         |unit| price         | extended      |
  501. +----+--------------------+-------------+----+---------------+---------------+
  502.                                                     taxable
  503.                                                 non-taxable
  504.                                               (      %) tax
  505.                                               (      %) tax   
  506.                                                    shipping   
  507. +-------[signature]----------+---[date]----+[est. delivery]+[total est. cost]+
  508. |                            |             |               |                 |
  509. +----------------------------+-------------+---------------+-----------------+ ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~                           P A C K I N G  L I S T
  510.              ╒═════════════════════════════════════════════════╕
  511.              │~padc(upper(m_name),48)~ │
  512.              ╘═════════════════════════════════════════════════╛
  513.  ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
  514.               ~padc(M_phone,48)~
  515. ┌────────────[sold to]───────────────┐  ┌────────────[ship to]───────────────┐
  516. │~PAD(customer->name,35)~ │  │~PAD(aShip2[1],35)~ │
  517. │~PAD(customer->company,35)~ │  │~PAD(aShip2[2],35)~ │
  518. │~PAD(customer->address,35)~ │  │~PAD(aShip2[3],35)~ │
  519. │~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ │  │~PAD(aShip2[4],35)~ │
  520. ├──[customer id]────┬──[telephone]───┤  ├──[         ]────┬──[          ]────┤
  521. │    ~padl(pos->cust_id,9,"0")~      │~customer->home_phone~    │  │                 │                  │
  522. └───────────────────┴────────────────┘  └─────────────────┴──────────────────┘
  523. ┌[INVOICE]──┬[date]─────┬[trx type]┬[sales rep]──────────────────────────────┐
  524. │ ~pos->(recno())~   │~pad(dtoc(pos->date),10)~ │~pos->trx_type~      │~pos->sales_rep~ ~sale_rep->name~ │
  525. ├[ship date]┼[weight]───┼[ship via]┴─────┬─────[terms]───────────────────────┤
  526. │~pad(dtoc(dFor),10)~ │~pos->weight~ │~pos->ship_via~│~Pad(posterms(),35)~│
  527. ├[cust PO]──┴───────────┼[f.o.b.]────────┴───────────────────────────────────┤
  528. │~pos->cust_po_no~   │~fob->fob_terms~    │
  529. └───────────────────────┴────────────────────────────────────────────────────┘
  530. ┌────┬─────────────────────┬──────────────┬──────────────┬────┬──────────────┐
  531. │item│item no./description │ordered       │shipped       │unit│backorder     │
  532. └────┴─────────────────────┴──────────────┴──────────────┴────┴──────────────┘
  533. ~pos_item->item~   ~inv->part_no~ ì
  534. ~pos_item->order_qty~~ship->qty_shipd~ ~inv->unit~ ì
  535. ~ship->back_order~
  536. ~-~      ~trim(inv->manufact)~
  537.       ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  538.                   * * * continued on page ~str(page+1,4)~ * * *
  539.  
  540. ~padc(upper(trim(M_NAME)),80)~
  541. page ~ltrim(str(page,4))~                                                [invoice no.-> ~pos-> (recno())~]
  542.                                (continuation)
  543. ┌────┬─────────────────────┬──────────────┬──────────────┬────┬──────────────┐
  544. │item│item no./description │ordered       │shipped       │unit│backorder     │
  545. └────┴─────────────────────┴──────────────┴──────────────┴────┴──────────────┘
  546.  
  547. Thank You For Your Business!
  548. ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~                           P A C K I N G  L I S T
  549.              +=================================================+
  550.              |~padc(upper(m_name),48)~ |
  551.              +=================================================+
  552.  ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
  553.               ~padc(M_phone,48)~
  554. +------------[sold to]---------------+  +------------[ship to]---------------+
  555. |~PAD(customer->name,35)~ |  |~PAD(aShip2[1],35)~ |
  556. |~PAD(customer->company,35)~ |  |~PAD(aShip2[2],35)~ |
  557. |~PAD(customer->address,35)~ |  |~PAD(aShip2[3],35)~ |
  558. |~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ |  |~PAD(aShip2[4],35)~ |
  559. +--[customer id]----+--[telephone]---+  +--[         ]----+--[          ]----+
  560. |    ~padl(pos->cust_id,9,"0")~      |~customer->home_phone~    |  |                 |                  |
  561. +-------------------+----------------+  +-----------------+------------------+
  562. +[INVOICE]--+[date]-----+[trx type]+[sales rep]------------------------------+
  563. | ~pos->(recno())~   |~pad(dtoc(pos->date),10)~ |~pos->trx_type~      |~pos->sales_rep~ ~sale_rep->name~ |
  564. +[ship date]+[weight]---+[ship via]+-----+-----[terms]-----------------------+
  565. |~pad(dtoc(dFor),10)~ |~pos->weight~ |~pos->ship_via~|~Pad(posterms(),35)~|
  566. +[cust PO]--+-----------+[f.o.b.]--------+-----------------------------------+
  567. |~pos->cust_po_no~   |~fob->fob_terms~    |
  568. +-----------------------+----------------------------------------------------+
  569. +----+---------------------+--------------+--------------+----+--------------+
  570. |item|item no./description |ordered       |shipped       |unit|backorder     |
  571. +----+---------------------+--------------+--------------+----+--------------+
  572. ~pos_item->item~   ~inv->part_no~ ì
  573. ~pos_item->order_qty~~ship->qty_shipd~ ~inv->unit~ ì
  574. ~ship->back_order~
  575. ~-~      ~trim(inv->manufact)~
  576.       ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  577.  
  578.                   * * * continued on page ~str(page+1,4)~ * * *
  579.  
  580. ~padc(upper(trim(M_NAME)),80)~
  581. page ~ltrim(str(page,4))~                                                [invoice no.-> ~pos-> (recno())~]
  582.                                (continuation)
  583. +----+---------------------+--------------+--------------+----+--------------+
  584. |item|item no./description |ordered       |shipped       |unit|backorder     |
  585. +----+---------------------+--------------+--------------+----+--------------+
  586.  
  587. Thank You For Your Business!~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
  588.                     ╒═══════════════════════════════════╕
  589.                     │          PURCHASE ORDER           │▒
  590.                     ╘═══════════════════════════════════╛▒
  591.                      ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  592.  
  593. ┌────────────[issued by]─────────────┐  ┌────────────[important]─────────────┐
  594. │~PAD(M_name,35)~ │  │Our purchase order number must      │
  595. │~PAD(M_adr1,35)~ │  │appear on all invoices, cases,      │
  596. │~PAD(M_adr2,35)~ │  │packing lists and correspondence.   │
  597. │~PAD(M_adr3,35)~ │  │                                    │
  598. ├────[contact]──────┬──[telephone]───┤  ├──[order no.]────┬──[issue date]────┤
  599. │~po->contact~ │ ~PAD(M_phone,14)~ │  │ ~padl(ltrim(str(po->(RECNO()))),7,"0")~         │  ~pad(dtoc(po->issued),10)~      │
  600. └───────────────────┴────────────────┘  ├[customer no.]───┼[cust. acct. no.]─┤
  601. ┌─           [issued to]            ─┐    │~supplier->cust_no~│~supplier->acct_no~│
  602. │~pad(aSup1,35)~ │  └─────────────────┴──────────────────┘
  603.  ~pad(aSup2,35)~
  604.  ~aSup3~
  605. │~pad(aSup4,35)~ │
  606. └─                                  ─┘
  607. ┌[weight]─────┬[required]─┬[f.o.b.   ]───────────────────────────────────────┐
  608. │~po->weight~│~pad(dtoc(po->required),10)~ │~fob->fob_terms~  │
  609. ├[TERMS  ]────┼[         ]┼[supply cd]┼[ship via]────────────────────────────┤
  610. │~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~  │           │~po->supply_cd~    │~po->ship_via~                      │
  611. └─────────────┴───────────┴───────────┴──────────────────────────────────────┘
  612. Please supply the articles and/or services listed below.
  613. comments-> ~po->comments~
  614. ┌────┬────────────────────┬─────────────┬────┬───────────────┬───────────────┐
  615. │item│item no./description│ qty         │unit│ price         │ extended      │
  616. └────┴────────────────────┴─────────────┴────┴───────────────┴───────────────┘
  617.  ~po2->item~  ~inv->part_no~~po2->qty~ ~inv->unit~  ~po2->cost~ ~str(po2->cost*po2->qty,15,2)~
  618. ~-~       ~trim(inv->manufact)~
  619.        ~Printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  620.        ~schedule()~
  621.                                                            ì
  622. ┌───[sub-total]───┐
  623.                                                            │  ì
  624. ~str(subtotal,15,2)~│
  625.                                                            ì
  626. └─────────────────┘
  627. ~padc(upper(trim(M_NAME)),80)~
  628. page ~ltrim(str(page,4))~                                                  [order no.-> ~po-> (recno())~]
  629.                                (continuation)
  630. ┌────┬────────────────────┬─────────────┬────┬───────────────┬───────────────┐
  631. │item│item no./description│ qty         │unit│ price         │ extended      │
  632. └────┴────────────────────┴─────────────┴────┴───────────────┴───────────────┘
  633.                                                       taxable   ~po->taxable~
  634.                                                   non-taxable   ~po->non_taxabl~
  635.                                                  ~if(empty(po->tax1_rate),"","("+str(po->tax1_rate)+"%) tax   "+str(po->tax1,13,2))~
  636.                                                  ~if(empty(po->tax2_rate),"","("+str(po->tax2_rate)+"%) tax   "+str(po->tax2,13,2))~
  637.                                                      shipping   ~po->freight~
  638. ┌───────[signature]──────────┬───[date]────┬───────────────┬[total est. cost]┐
  639. │                            │             │               │    ~po->total~│
  640. └────────────────────────────┴─────────────┴───────────────┴─────────────────┘ 
  641. ~Printcode("COMP")~Certified that an unencumbered balance is available to meet this commitment.~Printcode("pitch10")~~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~                                I N V O I C E
  642.              ╒═════════════════════════════════════════════════╕
  643.              │~padc(upper(m_name),48)~ │
  644.              ╘═════════════════════════════════════════════════╛
  645.  ~padc(trim(M_adr1)+" "+trim(M_adr2)+" "+trim(M_adr3),78)~
  646.               ~padc(M_phone,48)~
  647. ┌────────────[sold to]───────────────┐  ┌────────────[ship to]───────────────┐
  648. │~PAD(customer->name,35)~ │  │~PAD(aShip2[1],35)~ │
  649. │~PAD(customer->company,35)~ │  │~PAD(aShip2[2],35)~ │
  650. │~PAD(customer->address,35)~ │  │~PAD(aShip2[3],35)~ │
  651. │~PAD(trim(customer->city)+", "+customer->state+"  "+trim(customer->zip),35)~ │  │~PAD(aShip2[4],35)~ │
  652. ├──[customer id]────┬──[telephone]───┤  ├──[         ]────┬──[          ]────┤
  653. │    ~padl(pos->cust_id,9,"0")~      │~customer->home_phone~    │  │                 │                  │
  654. └───────────────────┴────────────────┘  └─────────────────┴──────────────────┘
  655. ┌[INVOICE]──┬[date]─────┬[trx type]┬[sales rep]──────────────────────────────┐
  656. │ ~pos->(recno())~   │~pad(dtoc(pos->date),10)~ │~pos->trx_type~      │~pos->sales_rep~ ~sale_rep->name~ │
  657. ├[ship date]┼[weight]───┼[ship via]┴─────┬─────[terms]───────────────────────┤
  658. │~pad(dtoc(pos->ship_date),10)~ │~pos->weight~ │~pos->ship_via~│~Pad(posterms(),35)~│
  659. ├[cust PO]──┴───────────┼[f.o.b.]────────┴───────────────────────────────────┤
  660. │~pos->cust_po_no~   │~fob->fob_terms~    │
  661. └───────────────────────┴────────────────────────────────────────────────────┘
  662. ┌────┬─────────────────────┬──────────────┬────┬─────────────┬───────────────┐
  663. │item│item no./description │quantity      │unit│unit cost    │extended       │
  664. └────┴─────────────────────┴──────────────┴────┴─────────────┴───────────────┘
  665. ~pos_item->item~   ~inv->part_no~ ~pos_item->order_qty~ ~inv->unit~ ~pos_item->price~ ~str(pos_item->order_qty*pos_item->price,15,2)~
  666. ~-~      ~trim(inv->manufact)~
  667.       ~printcode("COMP")+trim(inv->descr)+Printcode("pitch10")~
  668.       ~posSchedule(3)~
  669.                   * * * continued on page ~str(page+1,4)~ * * *
  670.  
  671. ~padc(upper(trim(M_NAME)),80)~
  672. page ~ltrim(str(page,4))~                                                [invoice no.-> ~pos-> (recno())~]
  673.                                (continuation)
  674. ┌────┬─────────────────────┬──────────────┬────┬─────────────┬───────────────┐
  675. │item│item no./description │quantity      │unit│unit cost    │extended       │
  676. └────┴─────────────────────┴──────────────┴────┴─────────────┴───────────────┘
  677. ┌[payment]─────────────────────────────────┬[charges]──────┬──────ì
  678. ───────────┐
  679. │~pad(aPaid[1],42)~│        taxable│      ~pos->taxable~│
  680. │~pad(aPaid[2],42)~│    non-taxable│      ~pos->non_taxabl~│ 
  681. │~pad(aPaid[3],42)~│   ì
  682. ~if(empty(pos->tax1_rate),space(12)+"│"+space(17),"("+str(pos->taxì
  683. 1_rate,5,2)+"%) tax│   "+str(tax1(),14,2))~│
  684. │~pad(aPaid[4],42)~│   ì
  685. ~if(empty(pos->tax2_rate),space(12)+"│"+space(17),"("+str(pos->taxì
  686. 2_rate,5,2)+"%) tax│   "+str(tax2(),14,2))~│
  687. │~pad(aPaid[5],42)~│       shipping│      ~pos->freight~│
  688. │~pad(aPaid[6],42)~│      T O T A L│  ~str(postotal(),15,2)~│
  689. ├[amount tendered]─┬[change due]───────────┼[PAYMENT DUE]──┼[B A ì
  690. L A N C E]──┤
  691. │~str(amt_tender(),15,2)~   │~str(change(),11,2)~            ì
  692. │~pad(if(empty(balance()),"N/A",pos->net_due),10)~     │  ì
  693. ~str(balance(),15,2)~│
  694. └──────────────────┴───────────────────────┴───────────────┴──────ì
  695. ───────────┘ 
  696. ~if(empty(balance()),"","Please pay from this Invoice:  No ì
  697. statement will be issued.")~
  698. ~if(!empty(pos->savings)," Y O U R  S A V I N G S -> ì
  699. $"+STR(POS->SAVINGS)+IF(!EMPTY(posTOTAL()),str((1-(postotal()-tax1ì
  700. ()-tax2())/(pos->savings+postotal()-tax1()-tax2()))*100,6,2)+"%","ì
  701. ")," T H A N K  Y O U  F O R  Y O U R  O R D E R !")~~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
  702.                     ╒═══════════════════════════════════╕
  703.                     │          PURCHASE ORDER           │▒
  704.                     ╘═══════════════════════════════════╛▒
  705.                      ▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒▒
  706.  
  707. ┌────────────[issued by]─────────────┐  ┌────────────[important]─────────────┐
  708. │~PAD(M_name,35)~ │  │Our purchase order number must      │
  709. │~PAD(M_adr1,35)~ │  │appear on all invoices, cases,      │
  710. │~PAD(M_adr2,35)~ │  │packing lists and correspondence.   │
  711. │~PAD(M_adr3,35)~ │  │                                    │
  712. ├────[contact]──────┬──[telephone]───┤  ├──[order no.]────┬──[issue date]────┤
  713. │~po->contact~ │ ~PAD(M_phone,14)~ │  │ ~padl(ltrim(str(po->(RECNO()))),7,"0")~         │  ~pad(dtoc(po->issued),10)~      │
  714. └───────────────────┴────────────────┘  ├[customer no.]───┼[cust. acct. no.]─┤
  715. ┌─           [issued to]            ─┐  │~supplier->cust_no~│~supplier->acct_no~│
  716. │~pad(aSup1,35)~ │  └─────────────────┴──────────────────┘
  717.  ~pad(aSup2,35)~
  718.  ~aSup3~
  719. │~pad(aSup4,35)~ │
  720. └─                                  ─┘
  721. ┌[weight]─────┬[required]─┬[f.o.b.   ]───────────────────────────────────────┐
  722. │~po->weight~│~pad(dtoc(po->required),10)~ │~fob->fob_terms~  │
  723. ├[TERMS  ]────┼[         ]┼[supply cd]┼[ship via]────────────────────────────┤
  724. │~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~  │           │~po->supply_cd~    │~po->ship_via~                      │
  725. └─────────────┴───────────┴───────────┴──────────────────────────────────────┘
  726. Please supply the articles and/or services listed below.
  727. comments-> ~po->comments~
  728. ┌────┬────────────────────┬─────────────┬────┬───────────────┬───────────────┐
  729. │item│item no./description│ qty         │unit│ price         │ extended      │
  730. └────┴────────────────────┴─────────────┴────┴───────────────┴───────────────┘
  731. ~Printcode("INIT")~~printcode("lines6")~~printcode("pitch10")~
  732.                     +===================================+
  733.                     |          PURCHASE ORDER           |
  734.                     +===================================+
  735.  
  736. +------------[issued by]-------------+  +------------[important]-------------+
  737. |~PAD(M_name,35)~ |  |Our purchase order number must      |
  738. |~PAD(M_adr1,35)~ |  |appear on all invoices, cases,      |
  739. |~PAD(M_adr2,35)~ |  |packing lists and correspondence.   |
  740. |~PAD(M_adr3,35)~ |  |                                    |
  741. +----[contact]------+--[telephone]---+  +--[order no.]----+--[issue date]----+
  742. |~po->contact~ | ~PAD(M_phone,14)~ |  | ~padl(ltrim(str(po->(RECNO()))),7,"0")~         |  ~pad(dtoc(po->issued),10)~      |
  743. +-------------------+----------------+  +[customer no.]---+[cust. acct. no.]-+
  744. +-           [issued to]            -+  |~supplier->cust_no~|~supplier->acct_no~|
  745. |~pad(aSup1,35)~ |  +-----------------+------------------+
  746.  ~pad(aSup2,35)~
  747.  ~aSup3~
  748. |~pad(aSup4,35)~ |
  749. +-                                  -+
  750. +[weight]-----+[required]-+[f.o.b.   ]---------------------------------------+
  751. |~po->weight~|~pad(dtoc(po->required),10)~ |~fob->fob_terms~  |
  752. +[TERMS  ]----+[         ]+[supply cd]+[ship via]----------------------------+
  753. |~pad(cTerms(po->term_dscnt,po->term_days,po->net),11)~  |           |~po->supply_cd~    |~po->ship_via~                      |
  754. +-------------+-----------+-----------+--------------------------------------+
  755. Please supply the articles and/or services listed below.
  756. comments-> ~po->comments~
  757. +----+--------------------+-------------+----+---------------+---------------+
  758. |item|item no./description| qty         |unit| price         | extended      |
  759. +----+--------------------+-------------+----+---------------+---------------+